home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Gen. / Aldus Persuasion Demo / Global Cast / Global Cast.rsrc / TEXT_1332.txt < prev    next >
Text File  |  1988-10-26  |  122b  |  7 lines
  1. s#
  2. set &y = mouseh
  3. if commanddown then skip 2
  4. exit
  5. if not thechar = 'p' then skip 2
  6. if mouseh = &y then skip -1
  7. exit&Àáh